home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 17 / Hot Mix 17.iso / HM17_SGI / html / vendors / multigen / events / seminars / vissim / semreg.cgi < prev    next >
Text File  |  1997-06-25  |  1KB  |  45 lines
  1. #!/usr/local/bin/perl
  2. # Web Cookbook script for handling forms
  3. # The core of this script was created by
  4. # Jeff Angwin, Webmaster for Sourcelink
  5. # Cadence Design Systems, Inc.
  6. # http://www.cadence.com/sneak.html
  7. #
  8. $mailto = 'mfolse@multigen.com, aignacio@multigen.com';
  9. $message1 = "Mail has been sent to MultiGen Inc.";
  10. $message2 = "Thank you for your interest.";
  11. $returnpath = "mgseminar.htm";
  12. $Returnpath2 = "mgseminar.htm";
  13. $formname = "Seminar Information";
  14. $mailid = "The following was submitted via the MultiGen Inc. Simulation Seminar Registration Form";
  15. #
  16. # No need to change anything below this line.
  17. #
  18. #___________________________________________________________
  19. $CONTENT_LENGTH=  $ENV{'CONTENT_LENGTH'};
  20. read(STDIN,$inputs,$CONTENT_LENGTH);
  21. open (MAILFILE,">/tmp/mailfile.$$");
  22. print MAILFILE "$mailid\n\n";
  23. @inputs=split("&",$inputs);
  24. foreach $line(@inputs){
  25.         $_=$line;
  26.         tr/+/ /;
  27.         s/%(..)/pack("c",hex($1))/ge;
  28.         s/comments\=/\nComments:\n/g;
  29.         print MAILFILE "$_\n";
  30. }
  31. close MAILFILE;
  32. open (MAILIT, "mail $mailto < /tmp/mailfile.$$|");
  33. close MAILIT;
  34. system "rm /tmp/mailfile.$$";
  35. print "Content-type: text/html\n\n";
  36. print "<BODY BGCOLOR=#fefefe>\n";
  37. print "<H2>$message1</H2>";
  38. print "<HR>\n";
  39. print "<UL>\n";
  40. print "$message2<p>\n";
  41. print "</UL>\n";
  42. print "<HR>\n";
  43. print "Return to <a href= $returnpath > $formname </a>";
  44.  
  45.